/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / admin / ra / raprogs / stat1_2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 13 20 f4 3e 3a | 30 2e 24 2e 53 54 41 54 |.... .>:|0.$.STAT|
|00000010| 31 2d 32 0d 00 14 0d 20 | de 20 41 24 28 34 30 29 |1-2.... |. A$(40)|
|00000020| 0d 00 1e 39 20 f4 20 54 | 68 69 73 20 70 72 6f 67 |...9 . T|his prog|
|00000030| 72 61 6d 20 6d 6f 76 65 | 73 20 61 6c 6c 20 73 74 |ram move|s all st|
|00000040| 61 74 65 6d 65 6e 74 73 | 20 65 66 66 65 63 74 69 |atements| effecti|
|00000050| 76 65 6c 79 20 64 6f 77 | 6e 0d 00 28 38 20 f4 20 |vely dow|n..(8 . |
|00000060| 61 20 6c 65 76 65 6c 20 | 73 6f 20 74 68 61 74 20 |a level |so that |
|00000070| 74 68 65 20 49 4e 54 45 | 52 4d 45 44 49 41 54 45 |the INTE|RMEDIATE|
|00000080| 20 73 74 61 74 65 6d 65 | 6e 74 20 69 73 20 6e 6f | stateme|nt is no|
|00000090| 77 0d 00 32 3e 20 f4 20 | 69 6e 20 74 68 65 20 42 |w..2> . |in the B|
|000000a0| 41 53 49 43 20 70 6f 73 | 69 74 69 6f 6e 2c 20 74 |ASIC pos|ition, t|
|000000b0| 68 65 20 41 64 76 61 6e | 63 65 64 20 69 6e 20 74 |he Advan|ced in t|
|000000c0| 68 65 20 49 4e 54 45 52 | 4d 45 44 49 41 54 45 0d |he INTER|MEDIATE.|
|000000d0| 00 3c 35 20 f4 20 74 68 | 65 20 42 41 53 49 43 20 |.<5 . th|e BASIC |
|000000e0| 66 72 6f 6d 20 74 68 65 | 20 6e 65 78 74 20 62 6c |from the| next bl|
|000000f0| 6f 63 6b 20 69 6e 20 74 | 68 65 20 41 44 56 41 4e |ock in t|he ADVAN|
|00000100| 43 45 44 2e 0d 00 46 42 | 20 f4 20 54 68 75 73 20 |CED...FB| . Thus |
|00000110| 6f 6e 63 65 20 74 68 65 | 20 41 64 76 61 6e 63 65 |once the| Advance|
|00000120| 64 20 73 74 61 74 65 6d | 65 6e 74 73 20 61 72 65 |d statem|ents are|
|00000130| 20 75 70 20 64 61 74 65 | 64 20 61 20 66 69 72 73 | up date|d a firs|
|00000140| 74 20 79 65 61 72 0d 00 | 50 31 20 f4 20 62 6c 6f |t year..|P1 . blo|
|00000150| 63 6b 20 69 73 20 74 72 | 61 6e 73 66 65 72 72 65 |ck is tr|ansferre|
|00000160| 64 20 74 6f 20 61 20 73 | 65 63 6f 6e 64 20 79 65 |d to a s|econd ye|
|00000170| 61 72 20 6f 6e 65 2e 0d | 00 5a 04 0d 00 64 3c 20 |ar one..|.Z...d< |
|00000180| e8 22 45 6e 74 65 72 20 | 66 69 6c 65 6e 61 6d 65 |."Enter |filename|
|00000190| 20 61 73 20 69 74 20 61 | 70 70 65 61 72 73 20 69 | as it a|ppears i|
|000001a0| 6e 20 73 75 62 6a 65 63 | 74 20 64 69 72 65 63 74 |n subjec|t direct|
|000001b0| 6f 72 79 22 3b 4e 24 0d | 00 6e 09 20 49 25 3d 30 |ory";N$.|.n. I%=0|
|000001c0| 0d 00 78 0c 20 58 3d ad | 28 4e 24 29 0d 00 82 2d |..x. X=.|(N$)...-|
|000001d0| 20 e8 23 58 2c 42 24 20 | 20 20 20 20 20 20 20 3a | .#X,B$ |       :|
|000001e0| f4 20 67 65 74 20 74 68 | 65 20 66 69 72 73 74 20 |. get th|e first |
|000001f0| 73 74 61 74 65 6d 65 6e | 74 0d 00 8c 06 20 f5 0d |statemen|t.... ..|
|00000200| 00 96 33 20 e8 23 58 2c | 41 24 28 49 25 29 20 20 |..3 .#X,|A$(I%)  |
|00000210| 20 20 3a f4 20 72 65 61 | 64 20 6e 65 78 74 20 73 |  :. rea|d next s|
|00000220| 74 61 74 65 6d 65 6e 74 | 20 69 6e 74 6f 20 41 24 |tatement| into A$|
|00000230| 28 29 0d 00 a0 0c 20 49 | 25 3d 49 25 2b 31 0d 00 |().... I|%=I%+1..|
|00000240| aa 0a 20 fd 20 c5 23 58 | 0d 00 b4 08 20 d9 23 30 |.. . .#X|.... .#0|
|00000250| 0d 00 be 10 20 59 3d ae | 28 22 54 45 4d 50 22 29 |.... Y=.|("TEMP")|
|00000260| 0d 00 c8 10 20 e3 20 4a | 25 3d 30 20 b8 20 49 25 |.... . J|%=0 . I%|
|00000270| 0d 00 d2 0f 20 f1 23 59 | 2c 41 24 28 4a 25 29 0d |.... .#Y|,A$(J%).|
|00000280| 00 dc 06 20 ed 0d 00 e6 | 12 20 f1 23 59 2c c4 32 |... ....|. .#Y,.2|
|00000290| 34 30 2c 22 41 22 29 0d | 00 f0 08 20 d9 23 30 0d |40,"A").|... .#0.|
|000002a0| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+